Imports CapaDeDatos
Public Class nTipoUnidad
    Private TblTipoUnidad As CapaDeDatos.dTipoUnidad = New CapaDeDatos.dTipoUnidad()
    Public Function Insertar(ByVal Descripcion As String) As Boolean
        Return TblTipoUnidad.Insertar(Descripcion)
    End Function
    Public Function Listar() As DataSet
        Return TblTipoUnidad.Listar()
    End Function
    Public Function Modificar(ByVal CodigoTunidad As Long, ByVal Descripcion As String) As Boolean
        Return TblTipoUnidad.Modificar(CodigoTunidad, Descripcion)
    End Function
    Public Function Eliminar(ByVal CodigoTunidad As Long) As Boolean
        Return TblTipoUnidad.Eliminar(CodigoTunidad)
    End Function
    Public Function Buscar(ByVal CodigoTunidad As Long, ByVal Descripcion As String, ByVal activo As Integer) As DataSet
        Return TblTipoUnidad.Buscar(CodigoTunidad, Descripcion, activo)
    End Function
End Class
